home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 3,701 to 3,800 / aol-file-protocol-4400-3701-to-3800.zip / AOLDLs / Other Special Interests / OCCASION_ V1.3 Sp. Occasion F / FUNFAX.exe / HDAYFAX.EXE / REGIST.TXT < prev    next >
Text File  |  1995-07-03  |  4KB  |  171 lines
  1. Function EnterRegist (UserName As String, RegistNum As String, RegistDate As String, Multiplier As Double) As Integer
  2. 'Retuns True if Name Matches Registration Number
  3. 'and writes data to Windows .ini file
  4. Dim res As Integer
  5. Dim NameLen As Integer
  6. Dim x As Integer
  7. Dim RegistName As String
  8. Dim RegNamValue As Double
  9. Dim RegNumValue As Double
  10. Dim CurChar As String
  11. Dim FaxSpeedStr As String
  12. Dim OptionsStr As String
  13.  
  14. RegNamValue = 0
  15.              
  16.  
  17.  
  18. 'Varify length
  19.  
  20. NameLen = Len(Trim$(UserName))
  21.  
  22. If NameLen < 14 Then
  23.     'Pad With Spaces
  24.     RegistName = Trim$(UserName)
  25.     For x = 1 To 14 - NameLen
  26.         RegistName = RegistName + " "
  27.         If Len(RegistName) = 14 Then
  28.             Exit For
  29.         End If
  30.     Next x
  31.  
  32.     'This code adds 14 spaces to the end of the exsisting string it does not
  33.     'make sure the string length is only 14!
  34.  
  35.     'RegistName = Trim$(UserName) + Space$(14)
  36.  
  37. Else
  38.  
  39.     RegistName = Mid$(Trim$(UserName), 1, 14)
  40.  
  41. End If
  42.  
  43. 'Calculate Ascii value
  44.  
  45. For x = 1 To 14
  46.     CurChar = Mid$(RegistName, x, 1)
  47.     RegNamValue = RegNamValue + Asc(CurChar)
  48. Next x
  49.  
  50. 'Grab the integer Part of ACSII Value
  51. RegNamValue = Int(Multiplier * RegNamValue)
  52.  
  53.  
  54. 'Compare to Registration Number Entered
  55. RegNumValue = Int(Val(Mid$(Trim$(RegistNum), 6, 5)))
  56.  
  57. 'Compare two number to see if the data was entered correctly
  58. If RegNumValue <> RegNamValue Then
  59.     'Return Error
  60.      EnterRegist = False
  61.      Exit Function
  62. Else
  63.  
  64. 'Create fax speed string
  65. FaxSpeedStr = "max " + "/" + Mid$(Str$(RegNamValue), 5, 1) + " /" + Mid$(Str$(RegNamValue), 6, 1)
  66. OptionsStr = "Set " + "/" + Mid$(Str$(RegNamValue), 2, 1) + " /" + Mid$(Str$(RegNamValue), 3, 1) + " /" + Mid$(Str$(RegNamValue), 4, 1)
  67.  
  68.  
  69. 'Write to Windows .ini file
  70.  
  71.   res = StringToINI("Special Occation Fax", "User Name", UserName, "WIN.INI")
  72.   res = StringToINI("Special Occation Fax", "Fax speed", FaxSpeedStr, "WIN.INI")
  73.   res = StringToINI("Special Occation Fax", "Options", OptionsStr, "WIN.INI")
  74.   'res = StringToINI("Special Occation Fax", "Registration Date", RegistDate, "WIN.INI")
  75.   EnterRegist = True
  76.  
  77. End If
  78.  
  79.  
  80.  
  81. End Function
  82.  
  83.  
  84. Function VarifyRegist (Multiplier As Double) As Integer
  85. 'Retuns True if Name Matches Registration Number
  86. 'and writes data to Windows .ini file
  87. Dim res As Integer
  88. Dim NameLen As Integer
  89. Dim x As Integer
  90. Dim RegistName As String
  91. Dim RegNamValue As Double
  92. Dim RegNumValue As Double
  93. Dim CurChar As String
  94. Dim UserName As String
  95. Dim RegistNum As String
  96. Dim RegistDate As String
  97. Dim FaxSpeed As String
  98. Dim Options As String
  99.  
  100. RegNamValue = 0
  101.  
  102.  
  103. 'Read Windows .INI file for Data
  104.   UserName = Trim$(StringFromINI("Special Occation Fax", "User Name", "", "WIN.INI"))
  105.   If UserName = "" Then
  106.     VarifyRegist = False
  107.     Exit Function
  108.   End If
  109.  
  110.   FaxSpeed = StringFromINI("Special Occation Fax", "Fax Speed", "", "WIN.INI")
  111.   If FaxSpeed = "" Then
  112.     VarifyRegist = False
  113.     Exit Function
  114.   End If
  115.  
  116.   Options = StringFromINI("Special Occation Fax", "Options", "", "WIN.INI")
  117.   If Options = "" Then
  118.     VarifyRegist = False
  119.     Exit Function
  120.   End If
  121.             
  122. 'Varify
  123.  
  124. NameLen = Len(Trim$(UserName))
  125.  
  126. If NameLen < 14 Then
  127.     'Pad With Spaces
  128.     RegistName = Trim$(UserName)
  129.     For x = 1 To 14 - NameLen
  130.         RegistName = RegistName + " "
  131.         If Len(RegistName) = 14 Then
  132.             Exit For
  133.         End If
  134.     Next x
  135.      'RegistName = Trim$(UserName) + Space$(14)
  136. Else
  137.  
  138.     RegistName = Mid$(Trim$(UserName), 1, 14)
  139.  
  140. End If
  141.  
  142. 'Calculate Ascii value
  143.  
  144. For x = 1 To 14
  145.     CurChar = Mid$(RegistName, x, 1)
  146.     RegNamValue = RegNamValue + Asc(CurChar)
  147. Next x
  148.  
  149. 'Grab the integer Part of ACSII Value
  150. RegNamValue = Int(Multiplier * RegNamValue)
  151.  
  152.  
  153. 'Compare to Registration Number Entered
  154. 'RegNumValue = Int(Val(Mid$(Trim$(RegistNum), 6, 5)))
  155.  
  156.  
  157. 'Setup RegNameValue from Win.INI File
  158. RegNumValue = Val(Mid$(Options, 6, 1) + Mid$(Options, 9, 1) + Mid$(Options, 12, 1) + Mid$(FaxSpeed, 6, 1) + Mid$(FaxSpeed, 9, 1))
  159.  
  160.  
  161. 'Compare two number to see if the data was entered correctly
  162. If RegNumValue <> RegNamValue Then
  163.     'Return Error
  164.      VarifyRegist = False
  165.      Exit Function
  166. Else
  167.   VarifyRegist = True
  168. End If
  169.  
  170. End Function
  171.